xerox ListerControl.mesa Oct77 free download

File name ListerControl.mesa_Oct77.pdf

ListerControl.mesa 25-0CT-77 15:08:14 Page 1 -- file ListerContro1.Mesa -- last edited by Sandman, October 2, 1977 1:32 PM DIRECTORY CommanderDefs: FROM "commanderdefs", ImageDefs: FROM "imagedefs", IODers: FROM "iodefs", ListerDefs: FROM "listerdefs", StringDefs: FROM "stringdefs", TimeDefs: FROM "timedefs"; DEFINITIONS FROM ListerDefs: ListerContro1: PROGRAM IMPORTS CommanderDefs, ImageDefs, ListerDefs, StringDefs, Timeoefs, IOOefs = BEGIN herald: STRING ~ [50]; LoadLister: PROCEDURE = BEGIN SetupArray[]; [] ~ De1eteArray[]; START CommanderDefs.Commander[hera1d]; START ListCode: START ListSymbols; START Listlnterface; START BcdList; START IOOefs.StreamIO[NIL, NIL]; ImageDefs.MakeImageC"Lister.Image", FALSE]; StringOefs.AppendStringCto: herald. from: "Alto/Mesa Lister "]; TimeDefs.AppendDayTime[hera1d. Timeoefs.UnpackDT[ImageDefs.ImageVersion[].time]]; herald. length ~ herald. length - 3; RESTART CommanderDefs.Commander; END; LoadL ister[]; END ...